Add a docstring

diff --git a/which-key.el b/which-key.el
index 5291b7bdd3dcf0d8f1a526ccd1376b7ee5be5161..262544f234f262db86bb9127508ce0f6e524908f 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -870,6 +870,9 @@ element in each list element of KEYS."
    (lambda (x y) (max x (string-width (nth index y)))) keys :initial-value 0))
 
 (defun which-key--pad-column (col-keys)
+  "Take a column of (key separator description) COL-KEYS,
+calculate the max width in the column and pad all cells out to
+that width."
   (let* ((col-key-width  (which-key--max-len col-keys 0))
          (col-sep-width  (which-key--max-len col-keys 1))
          (col-desc-width (which-key--max-len col-keys 2))